VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CCategoria"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Dim logica As lCategoria
Dim LEstado As LEstado

Public Function getLista() As Collection
Set getLista = logica.getLista(New bCategoria)
End Function

Private Sub Class_Initialize()
Set logica = New lCategoria
Set LEstado = New LEstado
End Sub

Public Function eliminar(bean As bCategoria)
eliminar = logica.eliminar(bean)
If eliminar = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje errorEncontrado
End If

End Function

Public Sub mostrarNuevo()
Dim frm As New frmEntrarCategoria
frm.modo = UtilConstantes.MODO_NUEVO
Set frm.listaEstado = LEstado.getEstadosCategoria
frm.Show 1
End Sub

Public Sub mostrarActualizar(bean As bCategoria)
Dim frm As New frmEntrarCategoria
frm.modo = UtilConstantes.MODO_ACTUALIZAR
Set frm.listaEstado = LEstado.getEstadosCategoria
Set frm.bean = bean
frm.Show 1
End Sub

Public Sub guardarNuevo(bean As bCategoria)
Select Case logica.guardarNuevo(bean)
Case UtilConstantes.OPT_DATOS_GUARDADOS
    utilMensaje.muestraMensaje DatosGuardados
Case UtilConstantes.OPT_ERROR_ENCONTRADO
    utilMensaje.muestraMensaje errorEncontrado
Case UtilConstantes.OPT_CLAVE_DUPLICADA
    utilMensaje.muestraMensaje codigoDuplicado
End Select

End Sub
Public Sub actualizar(bean As bCategoria)
Select Case logica.actualizar(bean)
Case UtilConstantes.OPT_DATOS_GUARDADOS
    utilMensaje.muestraMensaje DatosGuardados
Case UtilConstantes.OPT_ERROR_ENCONTRADO
    utilMensaje.muestraMensaje errorEncontrado
End Select
End Sub




